www.gusucode.com > AspFaq在线帮助系统 V1.0 > AspFaq在线帮助系统 V1.0\code\admin\Helps_Do.asp

    <!--#include file="Include.asp"-->
<%
dim types
types=clng(request.QueryString("type"))
select case types
  case 1
    call Helps_Add()
  case 2
    call Helps_Edit()
  case 3
    call Helps_Del()
  case 4
    call Helps_Up()
  case 5
    call Helps_Down()
  case else
    response.Write("类型错误！")
	response.End()
end select

dim Helps_Title,Helps_Content,Helps_Category,Helps_Show

'帮助添加函数
Sub Helps_Add()
  if request.Form.count>0 then
    Helps_Title=HTMLEncode(trim(request.Form("Helps_Title")))
    Helps_Content=request.Form("Helps_Content")
	Helps_Category=clng(request.Form("Helps_Category"))
	Helps_Show=clng(request.Form("Helps_Show"))
    call CheckString(Helps_Title,255,1,"请输入帮助标题！","帮助标题过长，请小于255个字符！")
    call CheckString(Helps_Content,20000,1,"请输入帮助内容！","帮助内容过长，请小于20000个字符！")
    if i=1 then
      call pagend()
      response.End()
    end if
	sqlstr="select * from [Helps] where Helps_Title='" & Helps_Title & "'"
	rs.open sqlstr,conn,1,3
	if rs.eof then
	  application.Lock()
	  rs.addnew()
	  rs("Helps_Title")=Helps_Title
	  rs("Helps_Content")=Helps_Content
	  rs("Helps_Category")=Helps_Category
	  rs("Helps_Show")=Helps_Show
	  rs.update()
	  application.UnLock()
	  response.Write("帮助添加成功！")
	else
	  response.Write("帮助标题已经被占用！")
	end if
	rs.close
	call pagend()
  end if
End Sub

'修改帮助函数
Sub Helps_Edit()
  if request.Form.count>0 then
    Helps_Title=HTMLEncode(trim(request.Form("Helps_Title")))
    Helps_Content=request.Form("Helps_Content")
	Helps_Category=clng(request.Form("Helps_Category"))
	Helps_Show=clng(request.Form("Helps_Show"))
	id=clng(request.Form("id"))
    call CheckString(Helps_Title,255,1,"请输入帮助标题！","帮助标题过长，请小于255个字符！")
    call CheckString(Helps_Content,20000,1,"请输入帮助内容！","帮助内容过长，请小于20000个字符！")
    if i=1 then
      call pagend()
      response.End()
    end if
	sqlstr="select * from [Helps] where Helps_Id="&id
	rs.open sqlstr,conn,1,3
	if not rs.eof then
	  application.Lock()
	  rs("Helps_Title")=Helps_Title
	  rs("Helps_Content")=Helps_Content
	  rs("Helps_Category")=Helps_Category
	  rs("Helps_Show")=Helps_Show
	  rs.update()
	  application.UnLock()
	  response.Write("帮助修改成功！")
	else
	  response.Write("帮助不存在！")
	end if
	rs.close
	call pagend()
  end if
End Sub

'删除帮助函数
Sub Helps_Del()
  id=clng(request.QueryString("id"))
  sqlstr="select * from [Helps] where Helps_Id=" & id
  rs.open sqlstr,conn,1,3
  if not rs.eof then
	application.Lock()
	rs.delete()
	application.UnLock()
	response.Write("帮助删除成功！")
  else
    response.Write("帮助不存在！")
  end if
  rs.close
End Sub

'帮助提升函数
Sub Helps_Up()
  id=clng(request.QueryString("id"))
  sqlstr="update [Helps] set Helps_Order=Helps_Order+1 where Helps_Id=" & id
  application.Lock()
  conn.execute(sqlstr)
  application.UnLock()
  response.Write("帮助分类提升成功！")
  response.End()
End Sub

'帮助降低函数
Sub Helps_Down()
  id=clng(request.QueryString("id"))
  sqlstr="update [Helps] set Helps_Order=Helps_Order-1 where Helps_Id=" & id
  application.Lock()
  conn.execute(sqlstr)
  application.UnLock()
  response.Write("帮助分类降低成功！")
  response.End()
End Sub
%>